home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 9 / Amoszine 9 (Disk 3 of 3).adf / Mikes_TMH_Source.lha / BlankerDemo.AMOS.Asc < prev    next >
Encoding:
Text File  |  1995-08-28  |  2.3 KB  |  74 lines
  1. '
  2. ' *********************************************************
  3. ' *                Screen Saver Example                   *
  4. ' *                  by Mike Richmond                     *
  5. ' *                                                       *
  6. ' * Using AMON Extension's Rodent X, Rodent Y and Keycode *
  7. ' *   so it works on ANY AMiga screen!  (Not just Amos)   *
  8. ' *                                                       *
  9. ' *  Based on the skeleton code for TMH v1.0, but without *
  10. ' *  Preferences file support, music, passwords etc. etc. *
  11. ' *********************************************************
  12. '
  13. '
  14. WINDX=320 : WINDY=0 : Rem Window X and Y coordinates 
  15. TIMEOUT=1000
  16. '
  17. A$="CON:"-" "+Str$(WINDX)-" "+"/"-" "+Str$(WINDY)-" "+"/260/100/Screen Blanker Demo/NOSIZE"
  18. Open Out 1,A$ : Rem Open a window on the Workench screen 
  19. Open Out 2,"CON:0/0/155/256/Dummy Window"
  20. '
  21. Screen Open 0,640,80,2,Hires : Flash Off : Curs Off : Cls 0
  22. Screen Display 0,,120,,
  23. Centre "** Screen Saver Demonstration **"
  24. Cdown : Cdown : Centre "Opens a window on the Workench screen and counts down in jiffies"
  25. Cdown : Centre "(50ths of a second) using the Timer variable.  Move the mouse or press a key"
  26. Cdown : Centre "to cancel the countdown or wait a bit to return to this screen!"
  27. Cdown : Cdown : Centre "»» ANYKEY ««"
  28. Wait Key 
  29. '
  30. '
  31. Timer=0 : Rem Reset the timer
  32. Amos To Back : Rem send Amos to the back
  33. X_BYTE=Rodent X
  34. Y_BYTE=Rodent Y : Rem Store the mouse X/Y coordinates
  35. '
  36. Repeat 
  37.    OX_BYTE=X_BYTE : OY_BYTE=Y_BYTE
  38.    X_BYTE=Rodent X : Rem <-- Rodent X = HARDWARE MOUSE X POSITION 
  39.    Y_BYTE=Rodent Y : Rem <-- Rodent Y =HARDWARE MOUSE Y POSITION
  40.    '
  41.    Rem If mouse has moved...
  42.    If X_BYTE<>OX_BYTE
  43.       Timer=0
  44.    End If 
  45.    '
  46.    If Y_BYTE<>OY_BYTE
  47.       Timer=0
  48.    End If 
  49.    '
  50.    ' Rem if any key has been pressed, keycode will have a value 
  51.    If Keycode<>0 : Rem <-- Keycode holds the last key pressed 
  52.       Timer=0
  53.    End If 
  54.    '
  55.    ' If Timer has passed the TIMEOUT limit
  56.    If Timer=>TIMEOUT
  57.       Amos To Front 
  58.    End If 
  59.    '      
  60.    ' Rem divide by 50 to convert to seconds 
  61.    Print #1,"TIME ";Timer/50;" Secs","TIMEOUT ";TIMEOUT/50
  62.    '
  63.    Multi Wait : Rem Be friendly to the system! 
  64.    '
  65. Until Amos Here
  66. '
  67. Close 1 : Close 2 : Rem Close the 2 windows
  68. '
  69. Cdown : Cdown : Centre "** All Done! **"
  70. Direct 
  71.  
  72.  
  73.  
  74.